home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjja86.arc / RECURSE2.PRO < prev    next >
Text File  |  1985-11-13  |  76b  |  4 lines
  1. /* Tail-recursion test */
  2. f(X) :- write(X), nl, Y is X+1, f(Y).
  3. ?- f(1).
  4.